@NullResponse @CheckFlag(BJT_explained)
@RT(Since we haven't played before,, let me explain you the rules #SubName, Since it's the first time we play the tournament,, let me explain the rules, Since it's the first time we play,, let me explain the rules first, Before we start I'll explain the rules)
(BJT_Rules)
The rules are the same of normal #BlackJerk
The tournament consists of, <i>at least</i>, three @RT(hands,games)
And you, #SubName, will choose how many @RT(hands,games) we @RT(will,will have to,have to play) play
Then we will @RT(sum up,add up,sum) the points scored during the tournament
If a player busts his points won't be valid for the final ranking
At the end who has more points @RT(is, will be) the winner
In case of a push between two or more of us we will play another @RT(hand,game) @SetFlag(BJT_explained)
(BJT_explained)
Do you want me to explain the rules again #SubName?
[yes] #Good @Goto(BJT_Rules)
[no] @NullResponse
@DifferentAnswer #YesorNo
(Choose_number_of_hands)
@RT(Choose the number of hands #SubName, How many hands will we play #GeneralTime?, How many hands #SubName? 3 or more?) @InputVar[tgr8_BJT_number_of_hands]
@Variable[tgr8_BJT_number_of_hands]<[3] We must play at least @RT(three,3) @RT(hands,games), @RT(#SubName,#PetName)! @DeleteVar[tgr8_BJT_number_of_hands] @Goto(Choose_number_of_hands)
(Choose_number_of_decks)
How many decks do you want to use? @InputVar[Number_of_decks]
@Variable[Number_of_decks]<[1]Or[Number_of_decks]>[8] You can only choose from 1 up to 8 decks of cards @DeleteVar[Number_of_decks] @Goto(Choose_number_of_decks)
(Game settings)
@NullResponse @RapidCodeOn
@NullResponse @SetVar[Number_of_card_per_type]=[Number_of_decks] @SetVar[Half_deck_number_of_cards]=[Number_of_decks] @SetVar[tgr8_BJ_card_dealt]=[0]
@NullResponse @ChangeVar[Number_of_card_per_type]=[4]*[Number_of_card_per_type] @ChangeVar[Half_deck_number_of_cards]=[Half_deck_number_of_cards]*[26]
@NullResponse @SetVar[01_counter]=[Number_of_card_per_type] @SetVar[02_counter]=[Number_of_card_per_type] @SetVar[03_counter]=[Number_of_card_per_type] @SetVar[04_counter]=[Number_of_card_per_type] @SetVar[05_counter]=[Number_of_card_per_type] @SetVar[06_counter]=[Number_of_card_per_type] @SetVar[07_counter]=[Number_of_card_per_type] @SetVar[08_counter]=[Number_of_card_per_type] @SetVar[09_counter]=[Number_of_card_per_type] @SetVar[10_counter]=[Number_of_card_per_type] @SetVar[Jack_counter]=[Number_of_card_per_type] @SetVar[Queen_counter]=[Number_of_card_per_type] @SetVar[King_counter]=[Number_of_card_per_type]
@NullResponse @SetVar[01_Clubs_counter]=[Number_of_decks] @SetVar[01_Diamonds_counter]=[Number_of_decks] @SetVar[01_Hearts_counter]=[Number_of_decks] @SetVar[01_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[02_Clubs_counter]=[Number_of_decks] @SetVar[02_Diamonds_counter]=[Number_of_decks] @SetVar[02_Hearts_counter]=[Number_of_decks] @SetVar[02_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[03_Clubs_counter]=[Number_of_decks] @SetVar[03_Diamonds_counter]=[Number_of_decks] @SetVar[03_Hearts_counter]=[Number_of_decks] @SetVar[03_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[04_Clubs_counter]=[Number_of_decks] @SetVar[04_Diamonds_counter]=[Number_of_decks] @SetVar[04_Hearts_counter]=[Number_of_decks] @SetVar[04_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[05_Clubs_counter]=[Number_of_decks] @SetVar[05_Diamonds_counter]=[Number_of_decks] @SetVar[05_Hearts_counter]=[Number_of_decks] @SetVar[05_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[06_Clubs_counter]=[Number_of_decks] @SetVar[06_Diamonds_counter]=[Number_of_decks] @SetVar[06_Hearts_counter]=[Number_of_decks] @SetVar[06_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[07_Clubs_counter]=[Number_of_decks] @SetVar[07_Diamonds_counter]=[Number_of_decks] @SetVar[07_Hearts_counter]=[Number_of_decks] @SetVar[07_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[08_Clubs_counter]=[Number_of_decks] @SetVar[08_Diamonds_counter]=[Number_of_decks] @SetVar[08_Hearts_counter]=[Number_of_decks] @SetVar[08_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[09_Clubs_counter]=[Number_of_decks] @SetVar[09_Diamonds_counter]=[Number_of_decks] @SetVar[09_Hearts_counter]=[Number_of_decks] @SetVar[09_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[10_Clubs_counter]=[Number_of_decks] @SetVar[10_Diamonds_counter]=[Number_of_decks] @SetVar[10_Hearts_counter]=[Number_of_decks] @SetVar[10_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[Jack_Clubs_counter]=[Number_of_decks] @SetVar[Jack_Diamonds_counter]=[Number_of_decks] @SetVar[Jack_Hearts_counter]=[Number_of_decks] @SetVar[Jack_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[Queen_Clubs_counter]=[Number_of_decks] @SetVar[Queen_Diamonds_counter]=[Number_of_decks] @SetVar[Queen_Hearts_counter]=[Number_of_decks] @SetVar[Queen_Spades_counter]=[Number_of_decks]
@NullResponse @SetVar[King_Clubs_counter]=[Number_of_decks] @SetVar[King_Diamonds_counter]=[Number_of_decks] @SetVar[King_Hearts_counter]=[Number_of_decks] @SetVar[King_Spades_counter]=[Number_of_decks]
@NullResponse @RapidCodeOff
(New_hand)
@NullResponse @RapidCodeOn
@NullResponse @If[tgr8_BJT_number_of_hands]=[0]Then(Tournament_finished)
@NullResponse @If[tgr8_BJ_card_dealt]>=[Half_deck_number_of_cards]Then(Game settings)
@NullResponse @ChangeVar[tgr8_BJT_number_of_hands]=[tgr8_BJT_number_of_hands]-[1]
@NullResponse @DeleteVar[Sub_number_of_cards,Sub_points,Domme_number_of_cards,Domme_points,Sub_has_ace,Domme_has_ace,Bet,Sub_win,Total_win, Contact1_number_of_cards,Contact2_number_of_cards,Contact3_number_of_cards,Contact1_points,Contact2_points,Contact3_points,tgr8_friend_hand,Contact1_has_ace,Contact2_has_ace,Contact3_has_ace,half_bet] @DeleteFlag(Sub_turn, Domme_turn, Sub_stand, Sub_has_ace, Domme_has_ace, Sub_stand, Contact1_turn,Contact2_turn,Contact3_turn,Contact1_has_ace,Contact2_has_ace,Contact3_has_ace)
@NullResponse @SetVar[Sub_number_of_cards]=[0] @SetVar[Domme_number_of_cards]=[0] @SetVar[Contact1_number_of_cards]=[0] @SetVar[Contact2_number_of_cards]=[0] @SetVar[Contact3_number_of_cards]=[0]
@NullResponse @NotFlag(No_tokens_to_bet) @If[#BronzeTokens]=[0]Then(No_tokens_to_bet)
@NullResponse @Flag(No_tokens_to_bet) @EdgeMode(Normal) @Chance40(Assign_task) @Goto(Card_for_Contact1)
@NullResponse @EdgeMode(Normal) @Goto(Place bet)
@NullResponse @RapidCodeOff
(No_tokens_to_bet)
@SystemMessage You don't have tokens to bet
@SystemMessage You can not bet anymore @TempFlag(No_tokens_to_bet) @EdgeMode(Normal) @Chance40(Assign_task) @Goto(Card_for_Contact1)
(Place bet)
You have #BronzeTokens bronze tokens. @RT(Place your bet #SubName, How much do you want to bet?) @InputVar[Bet]
@Variable[Bet]>[#BronzeTokens] @SystemMessage You don't have @ShowVar[Bet] bronze tokens. Place another bet @Goto(Place bet)
@NullResponse @RemoveTokens(#Var[Bet] Bronze) @PlayAudio[System\PayoutOne.wav] @Chance60(Card_for_Contact1)
(Assign_task)
@NullResponse @RapidCodeOn
@NullResponse @CallReturn(Custom\tgr8 Games\BlackJerk\BlackJerk files\Tasks\Choose task.txt)
@NullResponse @Goto(Card_for_Contact1)
@NullResponse @RapidCodeOff
(Card_for_Contact1)
@NullResponse @DeleteFlag(Contact2_turn,Contact3_turn,Sub_turn,Domme_turn)
@Variable[Contact1_number_of_cards]<[2] @RT(#Contact1,, your first two cards are, #Contact1,, your first cards are, #Contact1,, the first two cards you got are, #Contact1,, the first cards you got are, #Contact1,, your first two cards are, #Contact1,, your first cards are, The first two cards you got #Contact1 are, The first cards you got #Contact1 are)... @TempFlag(Contact1_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
@RT(#Contact1,, your card is a, You got a, #Contact1,, what you got is a, The card you got is a, Your next card is a, And now you get a, #Contact1,, next card is a)... @TempFlag(Contact1_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
(Card_for_Contact2)
@NullResponse @DeleteFlag(Contact1_turn,Contact3_turn,Sub_turn,Domme_turn)
@Variable[Contact2_number_of_cards]<[2] @RT(#Contact2,, your first two cards are, #Contact2,, your first cards are, #Contact2,, the first two cards you got are, #Contact2,, the first cards you got are, #Contact2,, your first two cards are, #Contact2,, your first cards are, The first two cards you got #Contact2 are, The first cards you got #Contact2 are)... @TempFlag(Contact2_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
@RT(#Contact2,, your card is a, You got a, #Contact2,, what you got is a, The card you got is a, Your next card is a, And now you get a, #Contact2,, next card is a)... @TempFlag(Contact2_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
(Card_for_Contact3)
@NullResponse @DeleteFlag(Contact1_turn,Contact2_turn,Sub_turn,Domme_turn)
@Variable[Contact3_number_of_cards]<[2] @RT(#Contact3,, your first two cards are, #Contact3,, your first cards are, #Contact3,, the first two cards you got are, #Contact3,, the first cards you got are, #Contact3,, your first two cards are, #Contact3,, your first cards are, The first two cards you got #Contact3 are, The first cards you got #Contact3 are)... @TempFlag(Contact3_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
@RT(#Contact3,, your card is a, You got a, #Contact3,, what you got is a, The card you got is a, Your next card is a, And now you get a, #Contact3,, next card is a)... @TempFlag(Contact3_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
(Card_for_Sub)
@NullResponse @DeleteFlag(Contact1_turn,Contact2_turn,Contact3_turn,Domme_turn)
@Variable[Sub_number_of_cards]<[2] @RT(#SubName,, your first two cards are, #SubName,, your first cards are, #SubName,, the cards you got are, Your first two cards are, The first two cards you got #SubName are)... @TempFlag(Sub_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
@RT(#SubName,, your card is a, You got a, #SubName,, what you got is a, The card you got is a, And your card is a, Your next card is a, And now you get a, #SubName,, next card is a)... @TempFlag(Sub_turn) @RTOn @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
(Card_for_Domme)
@NullResponse @DeleteFlag(Contact1_turn,Contact2_turn,Contact3_turn)
@Variable[Domme_number_of_cards]=[0] @RT(My first card is a, I got a, What I got is a, The first card I got is a, And my card is a, My first card is a)... @RTOn @TempFlag(Domme_turn) @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
@RT(My card is a, I got a, What I got is a, The next card I got is a, And my card is a, My next card is a)... @RTOn @TempFlag(Domme_turn) @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
@NullResponse @RapidCodeOn
(Choose_card)
@NullResponse @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)
(01)
@NullResponse @If[01_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[01_counter]=[01_counter]-[1]
(Choose_01_suit)
@NullResponse @Goto(01_Clubs, 01_Diamonds, 01_Hearts, 01_Spades)
(01_Clubs)
@NullResponse @If[01_Clubs_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Clubs_counter]=[01_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_clubs.jpg] @CheckFlag(Sub_turn,01_Sub_turn) @CheckFlag(Domme_turn,01_Domme_turn) @CheckFlag(Contact1_turn,01_Contact1_turn) @CheckFlag(Contact2_turn,01_Contact2_turn) @CheckFlag(Contact3_turn,01_Contact3_turn)
(01_Diamonds)
@NullResponse @If[01_Diamonds_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Diamonds_counter]=[01_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_diamonds.jpg] @CheckFlag(Sub_turn,01_Sub_turn) @CheckFlag(Domme_turn,01_Domme_turn) @CheckFlag(Contact1_turn,01_Contact1_turn) @CheckFlag(Contact2_turn,01_Contact2_turn) @CheckFlag(Contact3_turn,01_Contact3_turn)
(01_Hearts)
@NullResponse @If[01_Hearts_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Hearts_counter]=[01_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_hearts.jpg] @CheckFlag(Sub_turn,01_Sub_turn) @CheckFlag(Domme_turn,01_Domme_turn) @CheckFlag(Contact1_turn,01_Contact1_turn) @CheckFlag(Contact2_turn,01_Contact2_turn) @CheckFlag(Contact3_turn,01_Contact3_turn)
(01_Spades)
@NullResponse @If[01_Spades_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Spades_counter]=[01_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\01\ace_of_spades.jpg] @CheckFlag(Sub_turn,01_Sub_turn) @CheckFlag(Domme_turn,01_Domme_turn) @CheckFlag(Contact1_turn,01_Contact1_turn) @CheckFlag(Contact2_turn,01_Contact2_turn) @CheckFlag(Contact3_turn,01_Contact3_turn)
(01_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[11] @TempFlag(Sub_has_ace) @ChangeVar[Sub_has_ace]=[Sub_has_ace]+[1] @Goto(Command_centre)
(01_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[11] @TempFlag(Domme_has_ace) @ChangeVar[Domme_has_ace]=[Domme_has_ace]+[1] @Goto(Command_centre)
(01_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[11] @TempFlag(Contact1_has_ace) @ChangeVar[Contact1_has_ace]=[Contact1_has_ace]+[1] @Goto(Command_centre)
(01_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[11] @TempFlag(Contact2_has_ace) @ChangeVar[Contact2_has_ace]=[Contact2_has_ace]+[1] @Goto(Command_centre)
(01_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[11] @TempFlag(Contact3_has_ace) @ChangeVar[Contact3_has_ace]=[Contact3_has_ace]+[1] @Goto(Command_centre)
(02)
@NullResponse @If[02_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[02_counter]=[02_counter]-[1]
(Choose_02_suit)
@NullResponse @Goto(02_Clubs, 02_Diamonds, 02_Hearts, 02_Spades)
(02_Clubs)
@NullResponse @If[02_Clubs_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Clubs_counter]=[02_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_clubs.jpg] @CheckFlag(Sub_turn,02_Sub_turn) @CheckFlag(Domme_turn,02_Domme_turn) @CheckFlag(Contact1_turn,02_Contact1_turn) @CheckFlag(Contact2_turn,02_Contact2_turn) @CheckFlag(Contact3_turn,02_Contact3_turn)
(02_Diamonds)
@NullResponse @If[02_Diamonds_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Diamonds_counter]=[02_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_diamonds.jpg] @CheckFlag(Sub_turn,02_Sub_turn) @CheckFlag(Domme_turn,02_Domme_turn) @CheckFlag(Contact1_turn,02_Contact1_turn) @CheckFlag(Contact2_turn,02_Contact2_turn) @CheckFlag(Contact3_turn,02_Contact3_turn)
(02_Hearts)
@NullResponse @If[02_Hearts_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Hearts_counter]=[02_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_hearts.jpg] @CheckFlag(Sub_turn,02_Sub_turn) @CheckFlag(Domme_turn,02_Domme_turn) @CheckFlag(Contact1_turn,02_Contact1_turn) @CheckFlag(Contact2_turn,02_Contact2_turn) @CheckFlag(Contact3_turn,02_Contact3_turn)
(02_Spades)
@NullResponse @If[02_Spades_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Spades_counter]=[02_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\02\2_of_spades.jpg] @CheckFlag(Sub_turn,02_Sub_turn) @CheckFlag(Domme_turn,02_Domme_turn) @CheckFlag(Contact1_turn,02_Contact1_turn) @CheckFlag(Contact2_turn,02_Contact2_turn) @CheckFlag(Contact3_turn,02_Contact3_turn)
(02_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[2] @Goto(Command_centre)
(02_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[2] @Goto(Command_centre)
(02_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[2] @Goto(Command_centre)
(02_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[2] @Goto(Command_centre)
(02_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[2] @Goto(Command_centre)
(03)
@NullResponse @If[03_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[03_counter]=[03_counter]-[1]
(Choose_03_suit)
@NullResponse @Goto(03_Clubs, 03_Diamonds, 03_Hearts, 03_Spades)
(03_Clubs)
@NullResponse @If[03_Clubs_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Clubs_counter]=[03_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_clubs.jpg] @CheckFlag(Sub_turn,03_Sub_turn) @CheckFlag(Domme_turn,03_Domme_turn) @CheckFlag(Contact1_turn,03_Contact1_turn) @CheckFlag(Contact2_turn,03_Contact2_turn) @CheckFlag(Contact3_turn,03_Contact3_turn)
(03_Diamonds)
@NullResponse @If[03_Diamonds_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Diamonds_counter]=[03_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_diamonds.jpg] @CheckFlag(Sub_turn,03_Sub_turn) @CheckFlag(Domme_turn,03_Domme_turn) @CheckFlag(Contact1_turn,03_Contact1_turn) @CheckFlag(Contact2_turn,03_Contact2_turn) @CheckFlag(Contact3_turn,03_Contact3_turn)
(03_Hearts)
@NullResponse @If[03_Hearts_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Hearts_counter]=[03_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_hearts.jpg] @CheckFlag(Sub_turn,03_Sub_turn) @CheckFlag(Domme_turn,03_Domme_turn) @CheckFlag(Contact1_turn,03_Contact1_turn) @CheckFlag(Contact2_turn,03_Contact2_turn) @CheckFlag(Contact3_turn,03_Contact3_turn)
(03_Spades)
@NullResponse @If[03_Spades_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Spades_counter]=[03_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\03\3_of_spades.jpg] @CheckFlag(Sub_turn,03_Sub_turn) @CheckFlag(Domme_turn,03_Domme_turn) @CheckFlag(Contact1_turn,03_Contact1_turn) @CheckFlag(Contact2_turn,03_Contact2_turn) @CheckFlag(Contact3_turn,03_Contact3_turn)
(03_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[3] @Goto(Command_centre)
(03_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[3] @Goto(Command_centre)
(03_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[3] @Goto(Command_centre)
(03_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[3] @Goto(Command_centre)
(03_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[3] @Goto(Command_centre)
(04)
@NullResponse @If[04_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[04_counter]=[04_counter]-[1]
(Choose_04_suit)
@NullResponse @Goto(04_Clubs, 04_Diamonds, 04_Hearts, 04_Spades)
(04_Clubs)
@NullResponse @If[04_Clubs_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Clubs_counter]=[04_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_clubs.jpg] @CheckFlag(Sub_turn,04_Sub_turn) @CheckFlag(Domme_turn,04_Domme_turn) @CheckFlag(Contact1_turn,04_Contact1_turn) @CheckFlag(Contact2_turn,04_Contact2_turn) @CheckFlag(Contact3_turn,04_Contact3_turn)
(04_Diamonds)
@NullResponse @If[04_Diamonds_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Diamonds_counter]=[04_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_diamonds.jpg] @CheckFlag(Sub_turn,04_Sub_turn) @CheckFlag(Domme_turn,04_Domme_turn) @CheckFlag(Contact1_turn,04_Contact1_turn) @CheckFlag(Contact2_turn,04_Contact2_turn) @CheckFlag(Contact3_turn,04_Contact3_turn)
(04_Hearts)
@NullResponse @If[04_Hearts_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Diamonds_counter]=[04_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_hearts.jpg] @CheckFlag(Sub_turn,04_Sub_turn) @CheckFlag(Domme_turn,04_Domme_turn) @CheckFlag(Contact1_turn,04_Contact1_turn) @CheckFlag(Contact2_turn,04_Contact2_turn) @CheckFlag(Contact3_turn,04_Contact3_turn)
(04_Spades)
@NullResponse @If[04_Spades_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Spades_counter]=[04_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\04\4_of_spades.jpg] @CheckFlag(Sub_turn,04_Sub_turn) @CheckFlag(Domme_turn,04_Domme_turn) @CheckFlag(Contact1_turn,04_Contact1_turn) @CheckFlag(Contact2_turn,04_Contact2_turn) @CheckFlag(Contact3_turn,04_Contact3_turn)
(04_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[4] @Goto(Command_centre)
(04_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[4] @Goto(Command_centre)
(04_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[4] @Goto(Command_centre)
(04_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[4] @Goto(Command_centre)
(04_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[4] @Goto(Command_centre)
(05)
@NullResponse @If[05_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[05_counter]=[05_counter]-[1]
(Choose_05_suit)
@NullResponse @Goto(05_Clubs, 05_Diamonds, 05_Hearts, 05_Spades)
(05_Clubs)
@NullResponse @If[05_Clubs_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Clubs_counter]=[05_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_clubs.jpg] @CheckFlag(Sub_turn,05_Sub_turn) @CheckFlag(Domme_turn,05_Domme_turn) @CheckFlag(Contact1_turn,05_Contact1_turn) @CheckFlag(Contact2_turn,05_Contact2_turn) @CheckFlag(Contact3_turn,05_Contact3_turn)
(05_Diamonds)
@NullResponse @If[05_Diamonds_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Diamonds_counter]=[05_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_diamonds.jpg] @CheckFlag(Sub_turn,05_Sub_turn) @CheckFlag(Domme_turn,05_Domme_turn) @CheckFlag(Contact1_turn,05_Contact1_turn) @CheckFlag(Contact2_turn,05_Contact2_turn) @CheckFlag(Contact3_turn,05_Contact3_turn)
(05_Hearts)
@NullResponse @If[05_Hearts_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Hearts_counter]=[05_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_hearts.jpg] @CheckFlag(Sub_turn,05_Sub_turn) @CheckFlag(Domme_turn,05_Domme_turn) @CheckFlag(Contact1_turn,05_Contact1_turn) @CheckFlag(Contact2_turn,05_Contact2_turn) @CheckFlag(Contact3_turn,05_Contact3_turn)
(05_Spades)
@NullResponse @If[05_Spades_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Spades_counter]=[05_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\05\5_of_spades.jpg] @CheckFlag(Sub_turn,05_Sub_turn) @CheckFlag(Domme_turn,05_Domme_turn) @CheckFlag(Contact1_turn,05_Contact1_turn) @CheckFlag(Contact2_turn,05_Contact2_turn) @CheckFlag(Contact3_turn,05_Contact3_turn)
(05_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[5] @Goto(Command_centre)
(05_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[5] @Goto(Command_centre)
(05_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[5] @Goto(Command_centre)
(05_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[5] @Goto(Command_centre)
(05_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[5] @Goto(Command_centre)
(06)
@NullResponse @If[06_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[06_counter]=[06_counter]-[1]
(Choose_06_suit)
@NullResponse @Goto(06_Clubs, 06_Diamonds, 06_Hearts, 06_Spades)
(06_Clubs)
@NullResponse @If[06_Clubs_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Clubs_counter]=[06_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_clubs.jpg] @CheckFlag(Sub_turn,06_Sub_turn) @CheckFlag(Domme_turn,06_Domme_turn) @CheckFlag(Contact1_turn,06_Contact1_turn) @CheckFlag(Contact2_turn,06_Contact2_turn) @CheckFlag(Contact3_turn,06_Contact3_turn)
(06_Diamonds)
@NullResponse @If[06_Diamonds_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Diamonds_counter]=[06_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_diamonds.jpg] @CheckFlag(Sub_turn,06_Sub_turn) @CheckFlag(Domme_turn,06_Domme_turn) @CheckFlag(Contact1_turn,06_Contact1_turn) @CheckFlag(Contact2_turn,06_Contact2_turn) @CheckFlag(Contact3_turn,06_Contact3_turn)
(06_Hearts)
@NullResponse @If[06_Hearts_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Hearts_counter]=[06_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_hearts.jpg] @CheckFlag(Sub_turn,06_Sub_turn) @CheckFlag(Domme_turn,06_Domme_turn) @CheckFlag(Contact1_turn,06_Contact1_turn) @CheckFlag(Contact2_turn,06_Contact2_turn) @CheckFlag(Contact3_turn,06_Contact3_turn)
(06_Spades)
@NullResponse @If[06_Spades_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Spades_counter]=[06_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\06\6_of_spades.jpg] @CheckFlag(Sub_turn,06_Sub_turn) @CheckFlag(Domme_turn,06_Domme_turn) @CheckFlag(Contact1_turn,06_Contact1_turn) @CheckFlag(Contact2_turn,06_Contact2_turn) @CheckFlag(Contact3_turn,06_Contact3_turn)
(06_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[6] @Goto(Command_centre)
(06_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[6] @Goto(Command_centre)
(06_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[6] @Goto(Command_centre)
(06_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[6] @Goto(Command_centre)
(06_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[6] @Goto(Command_centre)
(07)
@NullResponse @If[07_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[07_counter]=[07_counter]-[1]
(Choose_07_suit)
@NullResponse @Goto(07_Clubs, 07_Diamonds, 07_Hearts, 07_Spades)
(07_Clubs)
@NullResponse @If[07_Clubs_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Clubs_counter]=[07_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_clubs.jpg] @CheckFlag(Sub_turn,07_Sub_turn) @CheckFlag(Domme_turn,07_Domme_turn) @CheckFlag(Contact1_turn,07_Contact1_turn) @CheckFlag(Contact2_turn,07_Contact2_turn) @CheckFlag(Contact3_turn,07_Contact3_turn)
(07_Diamonds)
@NullResponse @If[07_Diamonds_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Diamonds_counter]=[07_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_diamonds.jpg] @CheckFlag(Sub_turn,07_Sub_turn) @CheckFlag(Domme_turn,07_Domme_turn) @CheckFlag(Contact1_turn,07_Contact1_turn) @CheckFlag(Contact2_turn,07_Contact2_turn) @CheckFlag(Contact3_turn,07_Contact3_turn)
(07_Hearts)
@NullResponse @If[07_Hearts_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Hearts_counter]=[07_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_hearts.jpg] @CheckFlag(Sub_turn,07_Sub_turn) @CheckFlag(Domme_turn,07_Domme_turn) @CheckFlag(Contact1_turn,07_Contact1_turn) @CheckFlag(Contact2_turn,07_Contact2_turn) @CheckFlag(Contact3_turn,07_Contact3_turn)
(07_Spades)
@NullResponse @If[07_Spades_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Spades_counter]=[07_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\07\7_of_spades.jpg] @CheckFlag(Sub_turn,07_Sub_turn) @CheckFlag(Domme_turn,07_Domme_turn) @CheckFlag(Contact1_turn,07_Contact1_turn) @CheckFlag(Contact2_turn,07_Contact2_turn) @CheckFlag(Contact3_turn,07_Contact3_turn)
(07_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[7] @Goto(Command_centre)
(07_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[7] @Goto(Command_centre)
(07_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[7] @Goto(Command_centre)
(07_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[7] @Goto(Command_centre)
(07_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[7] @Goto(Command_centre)
(08)
@NullResponse @If[08_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[08_counter]=[08_counter]-[1]
(Choose_08_suit)
@NullResponse @Goto(08_Clubs, 08_Diamonds, 08_Hearts, 08_Spades)
(08_Clubs)
@NullResponse @If[08_Clubs_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Clubs_counter]=[08_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_clubs.jpg] @CheckFlag(Sub_turn,08_Sub_turn) @CheckFlag(Domme_turn,08_Domme_turn) @CheckFlag(Contact1_turn,08_Contact1_turn) @CheckFlag(Contact2_turn,08_Contact2_turn) @CheckFlag(Contact3_turn,08_Contact3_turn)
(08_Diamonds)
@NullResponse @If[08_Diamonds_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Diamonds_counter]=[08_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_diamonds.jpg] @CheckFlag(Sub_turn,08_Sub_turn) @CheckFlag(Domme_turn,08_Domme_turn) @CheckFlag(Contact1_turn,08_Contact1_turn) @CheckFlag(Contact2_turn,08_Contact2_turn) @CheckFlag(Contact3_turn,08_Contact3_turn)
(08_Hearts)
@NullResponse @If[08_Hearts_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Hearts_counter]=[08_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_hearts.jpg] @CheckFlag(Sub_turn,08_Sub_turn) @CheckFlag(Domme_turn,08_Domme_turn) @CheckFlag(Contact1_turn,08_Contact1_turn) @CheckFlag(Contact2_turn,08_Contact2_turn) @CheckFlag(Contact3_turn,08_Contact3_turn)
(08_Spades)
@NullResponse @If[08_Spades_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Spades_counter]=[08_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\08\8_of_spades.jpg] @CheckFlag(Sub_turn,08_Sub_turn) @CheckFlag(Domme_turn,08_Domme_turn) @CheckFlag(Contact1_turn,08_Contact1_turn) @CheckFlag(Contact2_turn,08_Contact2_turn) @CheckFlag(Contact3_turn,08_Contact3_turn)
(08_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[8] @Goto(Command_centre)
(08_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[8] @Goto(Command_centre)
(08_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[8] @Goto(Command_centre)
(08_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[8] @Goto(Command_centre)
(08_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[8] @Goto(Command_centre)
(09)
@NullResponse @If[09_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[09_counter]=[09_counter]-[1]
(Choose_09_suit)
@NullResponse @Goto(09_Clubs, 09_Diamonds, 09_Hearts, 09_Spades)
(09_Clubs)
@NullResponse @If[09_Clubs_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Clubs_counter]=[09_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_clubs.jpg] @CheckFlag(Sub_turn,09_Sub_turn) @CheckFlag(Domme_turn,09_Domme_turn) @CheckFlag(Contact1_turn,09_Contact1_turn) @CheckFlag(Contact2_turn,09_Contact2_turn) @CheckFlag(Contact3_turn,09_Contact3_turn)
(09_Diamonds)
@NullResponse @If[09_Diamonds_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Diamonds_counter]=[09_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_diamonds.jpg] @CheckFlag(Sub_turn,09_Sub_turn) @CheckFlag(Domme_turn,09_Domme_turn) @CheckFlag(Contact1_turn,09_Contact1_turn) @CheckFlag(Contact2_turn,09_Contact2_turn) @CheckFlag(Contact3_turn,09_Contact3_turn)
(09_Hearts)
@NullResponse @If[09_Hearts_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Hearts_counter]=[09_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_hearts.jpg] @CheckFlag(Sub_turn,09_Sub_turn) @CheckFlag(Domme_turn,09_Domme_turn) @CheckFlag(Contact1_turn,09_Contact1_turn) @CheckFlag(Contact2_turn,09_Contact2_turn) @CheckFlag(Contact3_turn,09_Contact3_turn)
(09_Spades)
@NullResponse @If[09_Spades_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Spades_counter]=[09_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\09\9_of_spades.jpg] @CheckFlag(Sub_turn,09_Sub_turn) @CheckFlag(Domme_turn,09_Domme_turn) @CheckFlag(Contact1_turn,09_Contact1_turn) @CheckFlag(Contact2_turn,09_Contact2_turn) @CheckFlag(Contact3_turn,09_Contact3_turn)
(09_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[9] @Goto(Command_centre)
(09_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[9] @Goto(Command_centre)
(09_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[9] @Goto(Command_centre)
(09_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[9] @Goto(Command_centre)
(09_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[9] @Goto(Command_centre)
(10)
@NullResponse @If[10_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[10_counter]=[10_counter]-[1]
(Choose_10_suit)
@NullResponse @Goto(10_Clubs, 10_Diamonds, 10_Hearts, 10_Spades)
(10_Clubs)
@NullResponse @If[10_Clubs_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Clubs_counter]=[10_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_clubs.jpg] @CheckFlag(Sub_turn,10_Sub_turn) @CheckFlag(Domme_turn,10_Domme_turn) @CheckFlag(Contact1_turn,10_Contact1_turn) @CheckFlag(Contact2_turn,10_Contact2_turn) @CheckFlag(Contact3_turn,10_Contact3_turn)
(10_Diamonds)
@NullResponse @If[10_Diamonds_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Diamonds_counter]=[10_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_diamonds.jpg] @CheckFlag(Sub_turn,10_Sub_turn) @CheckFlag(Domme_turn,10_Domme_turn) @CheckFlag(Contact1_turn,10_Contact1_turn) @CheckFlag(Contact2_turn,10_Contact2_turn) @CheckFlag(Contact3_turn,10_Contact3_turn)
(10_Hearts)
@NullResponse @If[10_Hearts_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Hearts_counter]=[10_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_hearts.jpg] @CheckFlag(Sub_turn,10_Sub_turn) @CheckFlag(Domme_turn,10_Domme_turn) @CheckFlag(Contact1_turn,10_Contact1_turn) @CheckFlag(Contact2_turn,10_Contact2_turn) @CheckFlag(Contact3_turn,10_Contact3_turn)
(10_Spades)
@NullResponse @If[10_Spades_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Spades_counter]=[10_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\10\10_of_spades.jpg] @CheckFlag(Sub_turn,10_Sub_turn) @CheckFlag(Domme_turn,10_Domme_turn) @CheckFlag(Contact1_turn,10_Contact1_turn) @CheckFlag(Contact2_turn,10_Contact2_turn) @CheckFlag(Contact3_turn,10_Contact3_turn)
(10_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[10] @Goto(Command_centre)
(10_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[10] @Goto(Command_centre)
(10_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[10] @Goto(Command_centre)
(10_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[10] @Goto(Command_centre)
(10_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[10] @Goto(Command_centre)
(Jack)
@NullResponse @If[Jack_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[Jack_counter]=[Jack_counter]-[1]
(Choose_Jack_suit)
@NullResponse @Goto(Jack_Clubs, Jack_Diamonds, Jack_Hearts, Jack_Spades)
(Jack_Clubs)
@NullResponse @If[Jack_Clubs_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Clubs_counter]=[Jack_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_clubs2.jpg] @CheckFlag(Sub_turn,Jack_Sub_turn) @CheckFlag(Domme_turn,Jack_Domme_turn) @CheckFlag(Contact1_turn,Jack_Contact1_turn) @CheckFlag(Contact2_turn,Jack_Contact2_turn) @CheckFlag(Contact3_turn,Jack_Contact3_turn)
(Jack_Diamonds)
@NullResponse @If[Jack_Diamonds_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Diamonds_counter]=[Jack_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_diamonds2.jpg] @CheckFlag(Sub_turn,Jack_Sub_turn) @CheckFlag(Domme_turn,Jack_Domme_turn) @CheckFlag(Contact1_turn,Jack_Contact1_turn) @CheckFlag(Contact2_turn,Jack_Contact2_turn) @CheckFlag(Contact3_turn,Jack_Contact3_turn)
(Jack_Hearts)
@NullResponse @If[Jack_Hearts_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Hearts_counter]=[Jack_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_hearts2.jpg] @CheckFlag(Sub_turn,Jack_Sub_turn) @CheckFlag(Domme_turn,Jack_Domme_turn) @CheckFlag(Contact1_turn,Jack_Contact1_turn) @CheckFlag(Contact2_turn,Jack_Contact2_turn) @CheckFlag(Contact3_turn,Jack_Contact3_turn)
(Jack_Spades)
@NullResponse @If[Jack_Spades_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Spades_counter]=[Jack_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\11\jack_of_spades2.jpg] @CheckFlag(Sub_turn,Jack_Sub_turn) @CheckFlag(Domme_turn,Jack_Domme_turn) @CheckFlag(Contact1_turn,Jack_Contact1_turn) @CheckFlag(Contact2_turn,Jack_Contact2_turn) @CheckFlag(Contact3_turn,Jack_Contact3_turn)
(Jack_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[10] @Goto(Command_centre)
(Jack_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[10] @Goto(Command_centre)
(Jack_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[10] @Goto(Command_centre)
(Jack_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[10] @Goto(Command_centre)
(Jack_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[10] @Goto(Command_centre)
(Queen)
@NullResponse @If[Queen_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[Queen_counter]=[Queen_counter]-[1]
(Choose_Queen_suit)
@NullResponse @Goto(Queen_Clubs, Queen_Diamonds, Queen_Hearts, Queen_Spades)
(Queen_Clubs)
@NullResponse @If[Queen_Clubs_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Clubs_counter]=[Queen_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_clubs2.jpg] @CheckFlag(Sub_turn,Queen_Sub_turn) @CheckFlag(Domme_turn,Queen_Domme_turn) @CheckFlag(Contact1_turn,Queen_Contact1_turn) @CheckFlag(Contact2_turn,Queen_Contact2_turn) @CheckFlag(Contact3_turn,Queen_Contact3_turn)
(Queen_Diamonds)
@NullResponse @If[Queen_Diamonds_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Diamonds_counter]=[Queen_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_diamonds2.jpg] @CheckFlag(Sub_turn,Queen_Sub_turn) @CheckFlag(Domme_turn,Queen_Domme_turn) @CheckFlag(Contact1_turn,Queen_Contact1_turn) @CheckFlag(Contact2_turn,Queen_Contact2_turn) @CheckFlag(Contact3_turn,Queen_Contact3_turn)
(Queen_Hearts)
@NullResponse @If[Queen_Hearts_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Hearts_counter]=[Queen_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_hearts2.jpg] @CheckFlag(Sub_turn,Queen_Sub_turn) @CheckFlag(Domme_turn,Queen_Domme_turn) @CheckFlag(Contact1_turn,Queen_Contact1_turn) @CheckFlag(Contact2_turn,Queen_Contact2_turn) @CheckFlag(Contact3_turn,Queen_Contact3_turn)
(Queen_Spades)
@NullResponse @If[Queen_Spades_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Spades_counter]=[Queen_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\12\queen_of_spades2.jpg] @CheckFlag(Sub_turn,Queen_Sub_turn) @CheckFlag(Domme_turn,Queen_Domme_turn) @CheckFlag(Contact1_turn,Queen_Contact1_turn) @CheckFlag(Contact2_turn,Queen_Contact2_turn) @CheckFlag(Contact3_turn,Queen_Contact3_turn)
(Queen_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[10] @Goto(Command_centre)
(Queen_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[10] @Goto(Command_centre)
(Queen_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[10] @Goto(Command_centre)
(Queen_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[10] @Goto(Command_centre)
(Queen_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[10] @Goto(Command_centre)
(King)
@NullResponse @If[King_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[tgr8_BJ_card_dealt]=[tgr8_BJ_card_dealt]+[1] @ChangeVar[King_counter]=[King_counter]-[1]
(Choose_King_suit)
@NullResponse @Goto(King_Clubs, King_Diamonds, King_Hearts, King_Spades)
(King_Clubs)
@NullResponse @If[King_Clubs_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Clubs_counter]=[King_Clubs_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_clubs2.jpg] @CheckFlag(Sub_turn,King_Sub_turn) @CheckFlag(Domme_turn,King_Domme_turn) @CheckFlag(Contact1_turn,King_Contact1_turn) @CheckFlag(Contact2_turn,King_Contact2_turn) @CheckFlag(Contact3_turn,King_Contact3_turn)
(King_Diamonds)
@NullResponse @If[King_Diamonds_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Diamonds_counter]=[King_Diamonds_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_diamonds2.jpg] @CheckFlag(Sub_turn,King_Sub_turn) @CheckFlag(Domme_turn,King_Domme_turn) @CheckFlag(Contact1_turn,King_Contact1_turn) @CheckFlag(Contact2_turn,King_Contact2_turn) @CheckFlag(Contact3_turn,King_Contact3_turn)
(King_Hearts)
@NullResponse @If[King_Hearts_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Hearts_counter]=[King_Hearts_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_hearts2.jpg] @CheckFlag(Sub_turn,King_Sub_turn) @CheckFlag(Domme_turn,King_Domme_turn) @CheckFlag(Contact1_turn,King_Contact1_turn) @CheckFlag(Contact2_turn,King_Contact2_turn) @CheckFlag(Contact3_turn,King_Contact3_turn)
(King_Spades)
@NullResponse @If[King_Spades_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Spades_counter]=[King_Spades_counter]-[1] @PlayAudio[System\CardFlip.wav] @ShowImage[tgr8 images\Cards\13\king_of_spades2.jpg] @CheckFlag(Sub_turn,King_Sub_turn) @CheckFlag(Domme_turn,King_Domme_turn) @CheckFlag(Contact1_turn,King_Contact1_turn) @CheckFlag(Contact2_turn,King_Contact2_turn) @CheckFlag(Contact3_turn,King_Contact3_turn)
(King_Sub_turn)
@NullResponse @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1] @ChangeVar[Sub_points]=[Sub_points]+[10] @Goto(Command_centre)
(King_Domme_turn)
@NullResponse @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1] @ChangeVar[Domme_points]=[Domme_points]+[10] @Goto(Command_centre)
(King_Contact1_turn)
@NullResponse @ChangeVar[Contact1_number_of_cards]=[Contact1_number_of_cards]+[1] @ChangeVar[Contact1_points]=[Contact1_points]+[10] @Goto(Command_centre)
(King_Contact2_turn)
@NullResponse @ChangeVar[Contact2_number_of_cards]=[Contact2_number_of_cards]+[1] @ChangeVar[Contact2_points]=[Contact2_points]+[10] @Goto(Command_centre)
(King_Contact3_turn)
@NullResponse @ChangeVar[Contact3_number_of_cards]=[Contact3_number_of_cards]+[1] @ChangeVar[Contact3_points]=[Contact3_points]+[10] @Goto(Command_centre)
@NullResponse @RapidCodeOff
(Command_centre)
@NullResponse @RapidCodeOn @RTOff
@NullResponse @CheckFlag(Domme_turn,Command_centre_Domme_turn) @CheckFlag(Contact1_turn,Command_centre_Contact1_turn) @CheckFlag(Contact2_turn,Command_centre_Contact2_turn) @CheckFlag(Contact3_turn,Command_centre_Contact3_turn)
(Command_centre_Sub_turn)
@NullResponse @If[Sub_points]>[21]Then(Check_Sub_busted)
@NullResponse @If[Sub_number_of_cards]<[2]Then(Choose_card) @If[Sub_number_of_cards]=[2]Then(Card_for_Domme) @If[Sub_number_of_cards]>[2]Then(Hit_or_stand)
(Command_centre_Domme_turn)
@NullResponse @If[Domme_number_of_cards]=[1]Then(Ask_hit_or_stand_to_friends)
@NullResponse @If[Domme_points]<[17]Then(Choose_card) @If[Domme_points]>=[17]Then(Domme_hit_or_stand)
(Command_centre_Contact1_turn)
@NullResponse @If[Contact1_points]>[21]Then(Check_Friend_busted)
@NullResponse @If[Contact1_number_of_cards]<[2]Then(Choose_card) @If[Contact1_number_of_cards]=[2]Then(Card_for_Contact2) @If[Contact1_number_of_cards]>[2]Then(Ask_hit_or_stand_to_friends)
(Command_centre_Contact2_turn)
@NullResponse @If[Contact2_points]>[21]Then(Check_Friend_busted)
@NullResponse @If[Contact2_number_of_cards]<[2]Then(Choose_card) @If[Contact2_number_of_cards]=[2]Then(Card_for_Contact3) @If[Contact2_number_of_cards]>[2]Then(Ask_hit_or_stand_to_friends)
(Command_centre_Contact3_turn)
@NullResponse @If[Contact3_points]>[21]Then(Check_Friend_busted)
@NullResponse @If[Contact3_number_of_cards]<[2]Then(Choose_card) @If[Contact3_number_of_cards]=[2]Then(Card_for_Sub) @If[Contact3_number_of_cards]>[2]Then(Ask_hit_or_stand_to_friends)
@NullResponse @RapidCodeOff
(Hit_or_stand)
#BJ_Sub_points #BJ_Domme_points
#Contact1 scored @ShowVar[Contact1_points] points, #Contact2 scored @ShowVar[Contact2_points] points, #Contact3 scored @ShowVar[Contact3_points] points
#Ask_hit_or_stand
[hit, hit #DomHonorific] @NullResponse @Goto(Card_for_Sub)
[stand, stand #DomHonorific] @NullResponse @FollowUp50(Ok, then it's my turn now!) @TempFlag(Sub_stand) @Goto(Card_for_Domme)
@DifferentAnswer #HitorStand
(Ask_hit_or_stand_to_friends)
@Flag(Domme_turn) @NullResponse @DeleteFlag(Domme_turn) @TempFlag(Contact1_turn)
@Flag(Contact1_turn) #BJ_Friend1_points
@Flag(Contact2_turn) #BJ_Friend2_points
@Flag(Contact3_turn) #BJ_Friend3_points
#Ask_hit_or_stand
@NullResponse @RapidCodeOn
@NullResponse @Flag(Contact1_turn) @SetVar[tgr8_friend_hand]=[Contact1_points]
@NullResponse @Flag(Contact2_turn) @SetVar[tgr8_friend_hand]=[Contact2_points]
@NullResponse @Flag(Contact3_turn) @SetVar[tgr8_friend_hand]=[Contact3_points]
@NullResponse @If[tgr8_friend_hand]<=[11]Then(Friend_hit) @If[tgr8_friend_hand]>=[12]And[tgr8_friend_hand]<[17]Then(Check_Domme_points) @If[tgr8_friend_hand]>=[17]Then(Friend_stand)
(Check_Domme_points)
@NullResponse @If[tgr8_friend_hand]>=[13]And[Domme_points]>=[7]Then(Friend_hit) @If[tgr8_friend_hand]>=[13]And[Domme_points]<[7]Then(Friend_stand)
@NullResponse @If[Domme_points]<=[3]Or[Domme_points]>=[7]Then(Friend_hit) @If[Domme_points]>[3]And[Domme_points]<[7]Then(Friend_stand)
@NullResponse @RapidCodeOff
(Domme_hit_or_stand)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]<[Sub_points]And[Domme_has_ace]>[0]Then(Card_for_Domme)
@NullResponse @If[Domme_points]<[Sub_points]Then(Check_Sub_win) @If[Domme_points]=[Sub_points]Then(Check_push) @If[Domme_points]>[Sub_points]Then(Check_Domme_win)
(Check_Sub_win)
@NullResponse @If[Sub_points]=[21]And[Sub_number_of_cards]=[2]Then(Sub_blackjack)
@NullResponse @Goto(Sub_won)
(Check_push)
@NullResponse @If[Domme_number_of_cards]=[Sub_number_of_cards]Then(Push_confirmed)
@NullResponse @If[Domme_number_of_cards]=[2]And[Domme_points]=[21]Then(Domme_blackjack)
@NullResponse @If[Sub_number_of_cards]=[2]And[Sub_points]=[21]Then(Sub_blackjack)
@NullResponse @If[Domme_number_of_cards]<[Sub_number_of_cards]Then(Domme_won)
@NullResponse @If[Domme_number_of_cards]>[Sub_number_of_cards]Then(Sub_won)
(Check_Domme_win)
@NullResponse @Variable[Domme_points]>[21] @CheckFlag(Domme_has_ace) @Goto(Check_Sub_win)
@NullResponse @If[Domme_points]=[21]And[Domme_number_of_cards]=[2]Then(Domme_blackjack)
@NullResponse @Goto(Domme_won)
@NullResponse @RapidCodeOff
(Sub_blackjack)
@Variable[Domme_points]>[21] @RT(I busted!, I busted #SubName!, I busted #PetName!, I busted #SubName, I busted #PetName)
@RT(#BlackJerk for you!, #BlackJerk for you, You have a #BlackJerk!, You have a #BlackJerk) @ShowImage[tgr8 images\BlackJerk\*.*] @PlayAudio[System\PayoutBig.wav]
@NullResponse @RapidCodeOn
@NullResponse @Flag(BJ_check_task) @CallReturn(Custom\tgr8 Games\BlackJerk\BlackJerk files\Tasks\Choose task.txt)
@NullResponse @ChangeVar[tgr8_BJT_Sub_points]=[tgr8_BJT_Sub_points]+[Sub_points]
@NullResponse @Flag(No_tokens_to_bet) @Goto(New_hand)
@NullResponse @SetVar[Sub_win]=[Bet] @SetVar[Total_win]=[Bet]
@NullResponse @ChangeVar[Sub_win]=[Sub_win]*[3]
@NullResponse @ChangeVar[Sub_win]=[Sub_win]/[2]
@NullResponse @ChangeVar[Total_win]=[Total_win]+[Sub_win] @ChangeVar[Tokens_won]=[Tokens_won]+[Sub_win]
@NullResponse @AddTokens(#Var[Total_win] Bronze) @Goto(New_hand)
@NullResponse @RapidCodeOff
(Sub_won)
@Variable[Domme_points]>[21] @RT(I busted!, I busted #SubName!, I busted #PetName!, I busted #SubName, I busted #PetName)
@Variable[Domme_points]<=[21] #BJ_Sub_points #BJ_Domme_points
@RT(You won #SubName!, You won #PetName!, You did it #SubName!, You did it #PetName!, You've won #SubName!, You've won #PetName!) @PlayAudio[System\PayoutBig.wav]
@NullResponse @RapidCodeOn
@NullResponse @Flag(BJ_check_task) @CallReturn(Custom\tgr8 Games\BlackJerk\BlackJerk files\Tasks\Choose task.txt)
@NullResponse @ChangeVar[tgr8_BJT_Sub_points]=[tgr8_BJT_Sub_points]+[Sub_points]
@NullResponse @Flag(No_tokens_to_bet) @Goto(New_hand)
@NullResponse @SetVar[Sub_win]=[Bet] @SetVar[Total_win]=[Bet]
@NullResponse @ChangeVar[Total_win]=[Total_win]+[Sub_win] @ChangeVar[Tokens_won]=[Tokens_won]+[Sub_win]
@NullResponse @AddTokens(#Var[Total_win] Bronze) @Goto(New_hand)
@NullResponse @RapidCodeOff
(Check_Sub_busted)
@NullResponse @RapidCodeOn
@NullResponse @CheckFlag(Sub_has_ace) @Goto(Sub_busted)
(Sub_has_ace)
@NullResponse @ChangeVar[Sub_has_ace]=[Sub_has_ace]-[1] @ChangeVar[Sub_points]=[Sub_points]-[10]
@NullResponse @Variable[Sub_has_ace]=[0] @DeleteFlag(Sub_has_ace)
@NullResponse @Goto(Command_centre)
@NullResponse @RapidCodeOff
(Sub_busted)
#BJ_Sub_points
@RT(You busted #SubName!, You busted #SubName, You busted!, You busted, You lost #SubName!, You lost #SubName, I won #SubName!, I won #SubName, And the winner is... #Me!)
@NullResponse @RapidCodeOn
@NullResponse @Flag(BJ_check_task) @CallReturn(Custom\tgr8 Games\BlackJerk\BlackJerk files\Tasks\Choose task.txt)
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet] @Goto(New_hand)
@NullResponse @RapidCodeOff
(Domme_blackjack)
@RT(I did #BlackJerk!, I did #BlackJerk, #BlackJerk for #Me!, #BlackJerk for #Me, I have a #BlackJerk!, I have a #BlackJerk)
@NullResponse @RapidCodeOn
@NullResponse @Flag(BJ_check_task) @CallReturn(Custom\tgr8 Games\BlackJerk\BlackJerk files\Tasks\Choose task.txt)
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet] @ChangeVar[tgr8_BJT_Domme_points]=[tgr8_BJT_Domme_points]+[Domme_points] @Goto(New_hand)
@NullResponse @RapidCodeOff
(Domme_won)
#BJ_Sub_points #BJ_Domme_points
@RT(I won #SubName!, I won #SubName, I won!, I won, You lost #SubName!, You lost #SubName)
@NullResponse @RapidCodeOn
@NullResponse @Flag(BJ_check_task) @CallReturn(Custom\tgr8 Games\BlackJerk\BlackJerk files\Tasks\Choose task.txt)
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet] @ChangeVar[tgr8_BJT_Domme_points]=[tgr8_BJT_Domme_points]+[Domme_points] @Goto(New_hand)
@NullResponse @RapidCodeOff
(Domme_has_ace)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_has_ace]=[Domme_has_ace]-[1] @ChangeVar[Domme_points]=[Domme_points]-[10]
@NullResponse @Variable[Domme_has_ace]=[0] @DeleteFlag(Domme_has_ace)
@NullResponse @Goto(Command_centre)
@NullResponse @RapidCodeOff
(Push_confirmed)
@RT(#Push!, #Push, Nobody won #SubName!, Nobody won #SubName, It's a #Push!, It's a #Push) @PlayAudio[System\PayoutOne.wav] @AddTokens(#Var[Bet] Bronze) @ChangeVar[tgr8_BJT_Sub_points]=[tgr8_BJT_Sub_points]+[Sub_points] @ChangeVar[tgr8_BJT_Domme_points]=[tgr8_BJT_Domme_points]+[Domme_points] @Goto(New_hand)
(Friend_stand)
@Flag(Contact1_turn) @Contact1 #BJ_friend_stand @ChangeVar[tgr8_BJT_Friend1_points]=[tgr8_BJT_Friend1_points]+[Contact1_points] @DeleteFlag(Contact1_turn) @TempFlag(Contact2_turn) @Goto(Ask_hit_or_stand_to_friends)
@Flag(Contact2_turn) @Contact2 #BJ_friend_stand @ChangeVar[tgr8_BJT_Friend2_points]=[tgr8_BJT_Friend2_points]+[Contact2_points] @DeleteFlag(Contact2_turn) @TempFlag(Contact3_turn) @Goto(Ask_hit_or_stand_to_friends)
@Flag(Contact3_turn) @Contact3 #BJ_friend_stand @ChangeVar[tgr8_BJT_Friend3_points]=[tgr8_BJT_Friend3_points]+[Contact3_points] @DeleteFlag(Contact3_turn) @TempFlag(Sub_turn) @Goto(Hit_or_stand)
@NullResponse @Goto(Command_centre)
(Friend_hit)
@Flag(Contact1_turn) @Contact1 #BJ_friend_hit @Goto(Card_for_Contact1)
@Flag(Contact2_turn) @Contact2 #BJ_friend_hit @Goto(Card_for_Contact2)
@Flag(Contact3_turn) @Contact3 #BJ_friend_hit @Goto(Card_for_Contact3)
(Check_Friend_busted)
@NullResponse @RapidCodeOn
@NullResponse @Flag(Contact1_turn) @CheckFlag(Contact1_has_ace, Friend_has_ace_Contact1_turn) @Goto(Friend_busted_Contact1_turn)
@NullResponse @Flag(Contact2_turn) @CheckFlag(Contact2_has_ace, Friend_has_ace_Contact2_turn) @Goto(Friend_busted_Contact2_turn)
@NullResponse @Flag(Contact3_turn) @CheckFlag(Contact3_has_ace, Friend_has_ace_Contact3_turn) @Goto(Friend_busted_Contact3_turn)
(Friend_has_ace_Contact1_turn)
@NullResponse @ChangeVar[Contact1_has_ace]=[Contact1_has_ace]-[1] @ChangeVar[Contact1_points]=[Contact1_points]-[10]
@NullResponse @Variable[Contact1_has_ace]=[0] @DeleteFlag(Contact1_has_ace)
@NullResponse @Goto(Command_centre)
(Friend_has_ace_Contact2_turn)
@NullResponse @ChangeVar[Contact2_has_ace]=[Contact2_has_ace]-[1] @ChangeVar[Contact2_points]=[Contact2_points]-[10]
@NullResponse @Variable[Contact2_has_ace]=[0] @DeleteFlag(Contact2_has_ace)
@NullResponse @Goto(Command_centre)
(Friend_has_ace_Contact3_turn)
@NullResponse @ChangeVar[Contact3_has_ace]=[Contact3_has_ace]-[1] @ChangeVar[Contact3_points]=[Contact3_points]-[10]
@NullResponse @Variable[Contact3_has_ace]=[0] @DeleteFlag(Contact3_has_ace)
@NullResponse @Goto(Command_centre)
@NullResponse @RapidCodeOff
(Friend_busted_Contact1_turn)
#BJ_Friend1_points
@RT(You busted #Contact1!, You busted #Contact1, You busted!, You busted, You lost #Contact1!, You lost #Contact1)
@Contact1 @RT(I'm so unlucky #GeneralTime!, I suck at this game!, No,, no,, no,, nooo!!!, Why always me?!) @DeleteFlag(Contact1_turn) @TempFlag(Contact2_turn) @Goto(Ask_hit_or_stand_to_friends)
(Friend_busted_Contact2_turn)
#BJ_Friend2_points
@RT(You busted #Contact2!, You busted #Contact2, You busted!, You busted, You lost #Contact2!, You lost #Contact2)
@Contact2 @RT(I'm so unlucky #GeneralTime!, I suck at this game!, No,, no,, no,, nooo!!!, Why always me?!) @DeleteFlag(Contact2_turn) @TempFlag(Contact3_turn) @Goto(Ask_hit_or_stand_to_friends)
(Friend_busted_Contact3_turn)
#BJ_Friend3_points
@RT(You busted #Contact3!, You busted #Contact3, You busted!, You busted, You lost #Contact3!, You lost #Contact3)
@Contact3 @RT(I'm so unlucky #GeneralTime!, I suck at this game!, No,, no,, no,, nooo!!!, Why always me?!) @DeleteFlag(Contact3_turn) @TempFlag(Sub_turn) @Goto(Hit_or_stand)
(Tournament_finished)
@RT(So this is the end...,The Tournament is finished!,The end is near)
@RT(All we have to do now is check if we have a winner, Now we have to check who has more points,This is always the big moment,, when the winner is revealed)
So, without further ado...
And the winner is...
@NullResponse @RapidCodeOn
@NullResponse @SetVar[tgr8_BJT_winner]=[tgr8_BJT_Friend1_points] @TempFlag(tgr8_Friend1_is_BJT_winner)
@NullResponse @Variable[tgr8_BJT_Friend2_points]=[tgr8_BJT_winner] @TempFlag(tgr8_more_than_a_BJT_winner)
@NullResponse @Variable[tgr8_BJT_Friend2_points]>[tgr8_BJT_winner] @DeleteFlag(tgr8_Friend1_is_BJT_winner,more_than_a_tgr8_BJT_winner) @TempFlag(tgr8_Friend2_is_BJT_winner) @SetVar[tgr8_BJT_winner]=[tgr8_BJT_Friend2_points]
@NullResponse @Variable[tgr8_BJT_Friend3_points]=[tgr8_BJT_winner] @TempFlag(tgr8_more_than_a_BJT_winner)
@NullResponse @Variable[tgr8_BJT_Friend3_points]>[tgr8_BJT_winner] @DeleteFlag(tgr8_Friend1_is_BJT_winner,tgr8_Friend2_is_BJT_winner,more_than_a_tgr8_BJT_winner) @TempFlag(tgr8_Friend3_is_BJT_winner) @SetVar[tgr8_BJT_winner]=[tgr8_BJT_Friend3_points]
@NullResponse @Variable[tgr8_BJT_Sub_points]=[tgr8_BJT_winner] @TempFlag(tgr8_more_than_a_BJT_winner)
@NullResponse @Variable[tgr8_BJT_Sub_points]>[tgr8_BJT_winner] @DeleteFlag(tgr8_Friend1_is_BJT_winner,tgr8_Friend2_is_BJT_winner,tgr8_Friend3_is_BJT_winner,more_than_a_tgr8_BJT_winner) @TempFlag(tgr8_Sub_is_BJT_winner) @SetVar[tgr8_BJT_winner]=[tgr8_BJT_Sub_points]
@NullResponse @Variable[tgr8_BJT_Domme_points]=[tgr8_BJT_winner] @TempFlag(tgr8_more_than_a_BJT_winner)
@NullResponse @Variable[tgr8_BJT_Domme_points]>[tgr8_BJT_winner] @DeleteFlag(tgr8_Friend1_is_BJT_winner,tgr8_Friend2_is_BJT_winner,tgr8_Friend3_is_BJT_winner,tgr8_Sub_is_BJT_winner,more_than_a_tgr8_BJT_winner) @TempFlag(tgr8_Domme_is_BJT_winner) @SetVar[tgr8_BJT_winner]=[tgr8_BJT_Domme_points]
@NullResponse @RapidCodeOff
@Flag(tgr8_more_than_a_BJT_winner) @RT(I fooled you! There's still no winner!,We have to play again! There's no winner, I fooled you! We don't have a winner!) @ChangeVar[tgr8_BJT_number_of_hands]=[tgr8_BJT_number_of_hands]+[1] @Goto(New_hand)
@NullResponse @CheckFlag(tgr8_Friend1_is_BJT_winner) @CheckFlag(tgr8_Friend2_is_BJT_winner) @CheckFlag(tgr8_Friend3_is_BJT_winner) @CheckFlag(tgr8_Sub_is_BJT_winner) @CheckFlag(tgr8_Domme_is_BJT_winner)
(tgr8_Friend1_is_BJT_winner)
@RT(#Contact1!, #Contact1 with #Var[tgr8_BJT_Friend1_points] points)
@Contact1 @RT(Yes! Yes!! Yes yes yes!!!, I knew it! Wow!, Wow!,Bow down before the winner! #EmoteSmile)
@RandomContact(Better luck next time,, right?, Next time will be better.) @RT(Like they say, As the saying goes)...
@Contact1 @RT(I promise I'll let you win next time,, girls, Maybe next time I'll let you win, Next time I'll give you slightly more chance to win, Don't say I'm not #Kind: next time I may let you win! #EmoteSmile)
Here's your @RT(money,tokens) #Contact1 @PlayAudio[System\PayoutBig.waw]
@Contact1 @RT(See ya, Bye girls)! @RT(I'm #Gonna spend all these tokens now, Have to go! I just gained some money,, #Grin,, and I think I know what do to do with them..., I think I'll go shopping now) @Goto(End)
(tgr8_Friend2_is_BJT_winner)
@RT(#Contact2!, #Contact2 with #Var[tgr8_BJT_Friend2_points] points)
@Contact2 @RT(Yes! Yes!! Yes yes yes!!!, I knew it! Wow!, Wow!,Bow down before the winner! #EmoteSmile)
@RandomContact(Better luck next time,, right?, Next time will be better.) @RT(Like they say, As the saying goes)...
@Contact2 @RT(I promise I'll let you win next time,, girls, Maybe next time I'll let you win, Next time I'll give you slightly more chance to win, Don't say I'm not #Kind: next time I may let you win! #EmoteSmile)
Here's your @RT(money,tokens) #Contact2 @PlayAudio[System\PayoutBig.waw]
@Contact2 @RT(See ya, Bye girls)! @RT(I'm #Gonna spend all these tokens now, Have to go! I just gained some money,, #Grin,, and I think I know what do to do with them..., I think I'll go shopping now) @Goto(End)
(tgr8_Friend3_is_BJT_winner)
@RT(#Contact3!, #Contact1 with #Var[tgr8_BJT_Friend3_points] points)
@Contact3 @RT(Yes! Yes!! Yes yes yes!!!, I knew it! Wow!, Wow!,Bow down before the winner! #EmoteSmile)
@RandomContact(Better luck next time,, right?, Next time will be better.) @RT(Like they say, As the saying goes)...
@Contact3 @RT(I promise I'll let you win next time,, girls, Maybe next time I'll let you win, Next time I'll give you slightly more chance to win, Don't say I'm not #Kind: next time I may let you win! #EmoteSmile)
Here's your @RT(money,tokens) #Contact3 @PlayAudio[System\PayoutBig.waw]
@Contact3 @RT(See ya, Bye girls)! @RT(I'm #Gonna spend all these tokens now, Have to go! I just gained some money,, #Grin,, and I think I know what do to do with them..., I think I'll go shopping now) @Goto(End)
(tgr8_Sub_is_BJT_winner)
@RT(#SubName!, #SubName with #Var[tgr8_BJT_Sub_points] points)
Congratulations @RT(#SubName,#PetName)! @AddTokens(1000 Bronze) @PlayAudio[System\PayoutBig.waw]
@RandomContact(Better luck next time,, right girls?, Next time will be better girls.) @RT(Like they say, As the saying goes)... @Goto(End)
(tgr8_Domme_is_BJT_winner)
Me!! @RT(I knew it! Wow!, Wow!, Bow down before the winner! #EmoteSmile) @PlayAudio[System\PayoutBig.waw]
@Contact1 @RT(Same old story,, isn't it?, It's always the same #DomName,, huh?, Same old story,, huh?) @FollowUp50(@Contact2 @RT(Why don't you tell us a different story #ShortName? One that ends with one of us winning, perhaps?..., Yeah... Same old story... #EmoteSad))
(End)
@NullResponse @RapidCodeOn
@NullResponse @RemoveContact1 @RemoveContact2 @RemoveContact3
@NullResponse @DeleteVar[Number_of_decks,Number_of_card_per_type,Half_deck_number_of_cards,01_counter,02_counter,03_counter,04_counter,05_counter,06_counter,07_counter,08_counter,09_counter,10_counter,Jack_counter,Queen_counter,King_counter,01_Clubs_counter,01_Diamonds_counter,01_Hearts_counter,01_Spades_counter,02_Clubs_counter,02_Diamonds_counter,02_Hearts_counter,02_Spades_counter,03_Clubs_counter,03_Diamonds_counter,03_Hearts_counter,03_Spades_counter,04_Clubs_counter,04_Diamonds_counter,04_Hearts_counter,04_Spades_counter,05_Clubs_counter,05_Diamonds_counter,05_Hearts_counter,05_Spades_counter,06_Clubs_counter,06_Diamonds_counter,06_Hearts_counter,06_Spades_counter,07_Clubs_counter,07_Diamonds_counter,07_Hearts_counter,07_Spades_counter,08_Clubs_counter,08_Diamonds_counter,08_Hearts_counter,08_Spades_counter,09_Clubs_counter,09_Diamonds_counter,09_Hearts_counter,09_Spades_counter,10_Clubs_counter,10_Diamonds_counter,10_Hearts_counter,10_Spades_counter,Jack_Clubs_counter,Jack_Diamonds_counter,Jack_Hearts_counter,Jack_Spades_counter,Queen_Clubs_counter,Queen_Diamonds_counter,Queen_Hearts_counter,Queen_Spades_counter,King_Clubs_counter,King_Diamonds_counter,King_Hearts_counter,King_Spades_counter,tgr8_BJ_card_dealt,Sub_number_of_cards,Sub_points,Sub_has_ace,Domme_number_of_cards,Domme_points,Domme_has_ace,Total_win,Sub_win,Bet,Tokens_won,Domme_win,Contact1_number_of_cards,Contact2_number_of_cards,Contact3_number_of_cards,Contact1_points,Contact2_points,Contact3_points,tgr8_friend_hand,Contact1_has_ace,Contact2_has_ace,Contact3_has_ace,tgr8_BJT_number_of_hands,tgr8_BJT_winner,tgr8_BJT_Friend1_points,tgr8_BJT_Friend2_points,tgr8_BJT_Friend3_points,tgr8_BJT_Sub_points,tgr8_BJT_Domme_points]
@NullResponse @DeleteFlag(Sub_turn, Domme_turn, Sub_stand, Sub_has_ace, Domme_has_ace, Sub_stand,Contact1_turn,Contact2_turn,Contact3_turn,Contact1_has_ace,Contact2_has_ace,Contact3_has_ace,No_tokens_to_bet,tgr8_Friend1_is_BJT_winner,tgr8_Friend2_is_BJT_winner,tgr8_Friend3_is_BJT_winner,tgr8_Sub_is_BJT_winner,tgr8_Domme_is_BJT_winner,tgr8_more_than_a_BJT_winner)
@NullResponse @RapidCodeOff
@End
 
@Info BlackJerk Tournament against Domme and Glitters. Written by: tigrotto